Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue24/tiptrix/LISTING5.PAS

Pascal/Delphi Source File | 1997-07-21 | 577 b | 19 lines

function ReturnJustFileName( const s : string ) : string;
var
  sExtension : string;
  sFullFileName : string;
begin
  sFullFileName := ExtractFileName(s);
  sExtension  := ExtractFileExt(sFullFileName);
  Result := Copy(sFullFileName, 1,
    Length(sFullFileName)-Length(sExtension) );
end;
function ReplaceFileExt( const sFullFileName : string;
  const NewExt : string ):string;
var sFileExt : string;
begin
  sFileExt  := ExtractFileExt(sFullFileName);
  Result := Copy(sFullFileName, 1, Length(sFullFileName) -
    Length(sFileExt) ) + æ.Æ + NewExt;
end;